<%
showQuery=[select distinct packing from (']+(dbclocation+[itemmast])+;
[') where len(alltrim(packing))>0 order by packing into cursor gotrecords]
&showQuery
categories=[]
do while not eof()
if not empty(packing)
categories=categories+chr(13)+[]
endif
skip
enddo
thisday=day(date())
thismonth=month(date())
thisyear=year(date())
fromdate=allt(transform(thisyear))+[-]+padl(allt(transform(thismonth)),2,[0])+[-]+allt(transform(1))
todate=allt(transform(thisyear))+[/]+allt(transform(thismonth))+[/]+allt(transform(thisday))
%>
SSSoft™ -
<%=XCOMPANY.NAME%>
Receipt